90 PRINT"[147]"
100 INPUT "NAME OF PROGRAM TO LOAD";PN$
110 INPUT "NAME OF BOOT PROGRAM";BN$
120 INPUT "LOCATION TO JUMP AFTER LOAD";LOC$
130 IF LOC$="" THEN BASIC=1:GOTO 160
140 IF LEFT$(LOC$,1)="$" THEN GOSUB 760:GOTO 160
150 LOC=VAL(LOC$)
160 INPUT "KILL RUNSTOP/RESTORE (Y/N)";RN$
170 RN$=LEFT$(RN$,1)
180 IF NOT (RN$="Y" OR RN$="N") THEN 160
190 OPEN 15,8,15,"I"
200 OPEN 8,8,8,"0:"+BN$+",P,W"
210 PRINT#8,CHR$(167)CHR$(02);
220 PRINT#8,CHR$(LEN(PN$));
230 PRINT#8,PN$;
240 IF RN$="N" THEN 380
250 FOR C=1 TO 17
260 READ CODE
270 PRINT#8,CHR$(CODE);
280 NEXT C
290 DATA 120         : REM SEI
300 DATA 169,052     : REM LDA #52
310 DATA 141,020,003 : REM STA $0314
320 DATA 169,134     : REM LDA #134
330 DATA 141,024,003 : REM STA $0318
340 DATA 169,234     : REM LDA #234
350 DATA 141,025,003 : REM STA $0319
360 DATA 088         : REM CLI
370 GOTO 390
380 FOR C=1 TO 17:READ CODE:NEXT C
390 FOR C=1 TO 38
400 READ CODE
410 PRINT#8,CHR$(CODE);
420 NEXT C
430 DATA 169,002     :REM LDA #2
440 DATA 162,008     :REM LDX #8
450 DATA 160,255     :REM LDY #255
460 DATA 032,186,255 :REM JSR $FFBA
470 DATA 173,167,002 :REM LDA $02A7
480 DATA 162,168     :REM LDX #$A8
490 DATA 160,002     :REM LDY #$02
500 DATA 032,189,255 :REM JSR $FFBD
510 DATA 169,000     :REM LDA #$00
520 DATA 032,213,255 :REM JSR $FFD5
530 DATA 169,131     :REM LDA #131
540 DATA 141,002,003 :REM STA $0302
550 DATA 169,164     :REM LDA #164
560 DATA 141,003,003 :REM STA $0303
570 DATA 134,045     :REM STX $2D
580 DATA 132,046     :REM STY $2E
590 IF BASIC=1 THEN GOSUB 860:GOTO 620
600 L1=INT(LOC/256):L2=LOC-(L1*256)
610 PRINT#8,CHR$(76)CHR$(L2)CHR$(L1);
620 IF RN$="Y" THEN BU=58+LEN(PN$)+1
630 IF RN$="N" THEN BU=41+LEN(PN$)+1
640 IF BASIC=1 THEN BU=BU+11
650 BL=88-BU
660 FOR C=1 TO BL+1:PRINT#8,CHR$(0);:NEXT C
670 PRINT#8,CHR$(139)CHR$(227);
680 B=679+LEN(PN$)+1
690 L1=INT(B/256):L2=B-(L1*256)
700 PRINT#8,CHR$(L2)CHR$(L1);
710 CLOSE8
720 GET#15,A$:S=ST
730 PRINT A$;
740 IF S=0 THEN 720
750 END
760 L=LEN(LOC$)
770 S=L-1
780 FOR C=1 TO L
790 I$=MID$(LOC$,C,1)
800 IF I$<="9" THEN I$=STR$(VAL(I$))
810 IF I$=>"A" THEN I$=STR$(ASC(I$)-55)
820 LOC=LOC+VAL(I$)*16^S
830 S=S-1
840 NEXT C
850 RETURN
860 FOR C=1 TO 14
870 READ CODE
880 PRINT#8,CHR$(CODE);
890 NEXT C
900 DATA 169,000     :REM LDA #$00
910 DATA 133,122     :REM STA $7A
920 DATA 169,008     :REM LDA #$08
930 DATA 133,123     :REM STA $78
940 DATA 032,096,166 :REM JSR $A660
950 DATA 076,174,167 :REM JMP $A7AE
960 RETURN